Update safe-chars of mule-utf-8,
authorDave Love <fx@gnu.org>
Thu, 5 Dec 2002 16:55:25 +0000 (16:55 +0000)
committerDave Love <fx@gnu.org>
Thu, 5 Dec 2002 16:55:25 +0000 (16:55 +0000)
mule-utf-16-le, mule-utf-16-be.

lisp/international/utf-8-subst.el

index 6049e6a09fbf452e39b3aa2c3a2baa75471effc2..8e5b4affe8c5b7ce3063f0b1264c8e212e4850fd 100644 (file)
    (#x9F9D ?\e$BcT\e(B)
    (#x9FA0 ?\e$Bs~\e(B))) 
 
+(let ((tab (make-char-table 'translation-table)))
+  (maphash (lambda (k v)
+            (aset tab k v))
+          ucs-mule-cjk-to-unicode)
+  (register-char-codings 'mule-utf-8 tab)
+  (register-char-codings 'mule-utf-16-be tab)
+  (register-char-codings 'mule-utf-16-le tab))
+
 (provide 'utf-8-subst)
 ;;; utf-8-subst.el ends here